home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagg_m.zip
/
MISC.SWG
/
0101_Procedure Calls.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-08-24
|
943b
|
39 lines
{
Coded By Frank Diacheysn Of Gemini Software
PROCEDURE CALLFUNCTION
Input......: UserRoutine = Pointer To The Routine To Call
: NA = String To Pass To <UserRoutine>
:
:
:
Output.....: None
:
:
:
:
Example....: PROCEDURE CALLME(Str:STRING);
: BEGIN
: WriteLn(Str);
: END;
:
: MyPointer := @CallMe;
: CallFunction(MyPointer,'Calling You!');
Description: Used To Call A Function Or A Procedure, Mainly A
: Procedure, Since Output Of The Function Can't Be
: Returned.
:
:
}
PROCEDURE CALLFUNCTION(UserRoutine:POINTER; NA:STRING);
PROCEDURE InsideCallFunction(NA:STRING);
INLINE( $FF/$5E/<UserRoutine );
BEGIN
InsideCallFunction(NA);
END;